home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Diamond Collection
/
The Diamond Collection (Software Vault)(Digital Impact).ISO
/
cdr36
/
tgmplus.zip
/
TGMPLUS.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-04-21
|
17KB
|
644 lines
10 CLS
20 PRINT "VORTEC@ '95"
30 SLEEP 2
40 CLS
50 PRINT "'Our games suck'"
60 SLEEP 2
70 CLS
80 PRINT "TGM+"
85 PRINT
87 PRINT "Programming by: Matt Stidle"
90 SLEEP 2
100 CLS
101 PRINT " 'The Text Game Maker+' is a replica of 'The Text Game Maker 2'"
102 PRINT "which I was almost finished with, when I was tinkering with some BSAVE,"
103 PRINT "BLOAD, OPEN, CLOSE commands in QBasic and happened to take the over"
104 PRINT "100,000 byte program to 2 bytes. I was in a rage. But, it's been ab-"
105 PRINT "3 minutes since then, and I'm determined to make a bigger, better game"
106 PRINT "maker!!! It's been my dream for quite some time, and I will do it! So"
107 PRINT "have a good time, or my goal is not achieved!!!"
108 PRINT
109 INPUT "Press <ENTER> when finsished reading!!!", go$
109.5 CLS
109.7 PRINT "Note: When presented with a yes or no question, answer Y or N."
109.8 PRINT
109.9 INPUT "Press <ENTER> when you are finished reading!", go5$
109.91 CLS
110 INPUT "Title?", title$
120 CLS
130 PRINT title$
140 PRINT
150 INPUT "Is this OK?", okay1$
160 IF okay1$ = "N" THEN GOTO 109.91
170 CLS
INPUT "How many beeps after title(0-5)", beepsafter
CLS
180 INPUT "Would you like to make instructions?", instructions$
190 IF instructions$ = "N" THEN 530
200 CLS
210 PRINT "OK, now to make instructions, you have 20 lines to type what the"
220 PRINT "game is, what it does, and what the idea of it is, as well as any-"
230 PRINT "thing else you would like."
240 PRINT
250 INPUT "Press <ENTER> when finished reading this!!!", go$
260 CLS
265 insructions1 = 1
270 INPUT ia$
280 INPUT ib$
290 INPUT ic$
300 INPUT id$
310 INPUT ie$
320 INPUT if$
330 INPUT ig$
340 INPUT ih$
350 INPUT ii$
360 INPUT ij$
370 INPUT ik$
380 INPUT il$
390 INPUT im$
400 INPUT in$
410 INPUT io$
420 INPUT ip$
430 INPUT iq$
440 INPUT ir$
450 INPUT is$
460 INPUT it$
470 INPUT iu$
480 INPUT iv$
530 CLS
540 PRINT "NOTE: While I cannot save your games, I CAN make them for you."
550 PRINT "All you need to do is right down, skipping a line each time you"
560 PRINT "answer another one, what you answered to every prompt. No need to"
570 PRINT "say what the prompt said, just right down what you answered. If it"
580 PRINT "is too hard to make, we will tell you. THANKS!!!"
590 PRINT
600 INPUT "Press <ENTER> when finished reading!!!", go2
610 CLS
620 PRINT "Values could be a big part of your game if it is complex. So"
630 PRINT "values are there to help. You get 3 values in this version, but"
640 PRINT "just send 25 cents to the address marked in the CONTEST.NFO file"
650 PRINT "and we will give you 10 values. For 25 cents more, 20, and so on!"
660 PRINT
670 INPUT "Press <ENTER> to mark values.", go3$
680 CLS
690 INPUT "1=", value1
700 INPUT "2=", value2
710 INPUT "3=", value3
720 CLS
730 PRINT "One upgrade from version 1 of 'The Text Game Maker' family (other"
740 PRINT "than dozens of others) is the new 'Make-A-Room' utility. You get"
750 PRINT "to show the player what the actual room looks like that they are in"
760 PRINT "By using Xs, Os, and any other symbols such as % you would want to"
770 PRINT "use. And idea is to type in KEYB GR or something before starting"
780 PRINT "TGM+ so that you get symbols like ÖöÄäÜü and things like that, the"
790 PRINT "only other change being that sometimes the Y and Z get mixed up or"
800 PRINT "something like that."
810 PRINT
820 INPUT "To make the starting room, press <ENTER>.", go4$
830 CLS
840 INPUT r1a$
850 INPUT r1b$
860 INPUT r1c$
870 INPUT r1d$
880 INPUT r1e$
890 INPUT r1f$
900 INPUT r1g$
910 INPUT r1h$
920 INPUT r1i$
930 INPUT r1j$
940 INPUT r1k$
950 INPUT r1l$
960 PRINT "That's as many lines as the room can take up."
970 INPUT "Is this OK?", okay2$
980 IF okay2$ = "N" THEN GOTO 830
990 CLS
1000 PRINT "To be an even more sophisticated game, you USUALLY need items for"
1010 PRINT "the user to pick up and use. So, I have obviously put in an items"
1020 PRINT "section. You can also show what the thing looks like. As with"
1030 PRINT "values, in this version you get only a limited number (5) of items"
1040 PRINT "to put into your game, but with 25 cents sent to the address in"
1050 PRINT "the CONTEST.NFO file, you get 10 more, and with 25 more cents, 10"
1060 PRINT "more, and so on. So, you be the judge!!!"
1070 PRINT
1080 INPUT "Would you like items in this room?", likeitems$
1090 IF likeitems$ = "N" THEN 1220
1100 CLS
1110 INPUT "Item 1=", item1$
1120 INPUT "Item 2=", item2$
1130 INPUT "Item 3=", item3$
1140 INPUT "Item 4=", item4$
1150 INPUT "Item 5=", item4$
1160 CLS
1170 INPUT "What does item 1 look like?", itemlook1$
1180 INPUT "What does item 2 look like?", itemlook2$
1190 INPUT "What does item 3 look like?", itemlook3$
1200 INPUT "What does item 4 look like?", itemlook4$
1210 INPUT "What does item 5 look like?", itemlook5$
1220 CLS
1230 PRINT "Especially in the first room, HELP screens are very important bec-"
1240 PRINT "ause they tell the user what they have to accomplish in the room,"
1250 PRINT "and possibly hints. Lots of other possiblities are in HELP scr-"
1260 PRINT "eens as well."
1270 PRINT
1280 INPUT "Would you like to have a HELP screen for this room?", havhlp$
1290 IF havhlp$ = "N" THEN 1480
1300 CLS
1310 INPUT ha$
1320 INPUT hb$
1330 INPUT hc$
1340 INPUT hd$
1350 INPUT he$
1360 INPUT hf$
1370 INPUT hg$
1380 INPUT hh$
1390 INPUT hi$
1400 INPUT hj$
1410 INPUT hk$
1420 INPUT hl$
1430 INPUT hm$
1440 INPUT hn$
1450 INPUT ho$
1460 INPUT hp$
1470 INPUT hq$
1480 CLS
1481 INPUT "Press <ENTER> to write a description for this room.", roomdes$
1482 CLS
1483 INPUT desa$
1484 INPUT desb$
1485 INPUT desc$
1486 INPUT desd$
1487 INPUT dese$
1488 CLS
1490 PRINT "If the user happens to be playing this in the office, they would"
1500 PRINT "definitly be in big trouble if the boss saw them. SO, you may"
1510 PRINT "want to take pity on these people and make a way that they could"
1520 PRINT "either get completely out of the program and into QBasic, or could"
1530 PRINT "pop up a screen that has a bunch of proffesional stuff on it. So,"
1540 PRINT "it's your choice."
1550 PRINT
1560 INPUT "Press <ENTER> to choose", go7$
1570 CLS
1580 PRINT "1. Get completely out"
1590 PRINT "2. Make a BOSS screen"
1600 PRINT "3. Do not do either"
1610 PRINT
1620 INPUT "Which one?", chobos
1630 IF chobos = 1 THEN 1670
1640 IF chobos = 2 THEN 1720
1650 IF chobos = 3 THEN 1960
1660 GOTO 1570
1670 getout! = 1
1680 PRINT "OK, that's set."
1690 PRINT
1700 INPUT "Press <ENTER> to go on.", go8$
1710 GOTO 1960
1720 PRINT "A boss screen should make it look like the person's doing something"
1730 PRINT "but do whatever you want."
1740 getout! = 2
1750 PRINT
1760 INPUT "Press <ENTER> to make BOSS screen. P.S. User types GONE to get out.", go9$
1770 CLS
1780 INPUT ba$
1790 INPUT bb$
1800 INPUT bc$
1810 INPUT bd$
1820 INPUT be$
1830 INPUT bf$
1840 INPUT bg$
1850 INPUT bh$
1860 INPUT bi$
1870 INPUT bj$
1880 INPUT bk$
1890 INPUT bl$
1900 INPUT bm$
1910 INPUT bn$
1920 INPUT bo$
1930 INPUT bp$
1940 INPUT bq$
1950 INPUT br$
1960 CLS
1970 PRINT "To have a good game, you need the players to make desicions for"
1980 PRINT "themselves, so you need to list now what things they can type in"
1990 PRINT "for this room, room 1. You get 52 commands for each room, unlike"
2000 PRINT "just plain TGM, where you got 52 commands... and that was ALL!!!"
2010 PRINT "So, get those commands done!"
2020 PRINT
2030 INPUT "Press <ENTER> to type in commands!", go10$
2040 CLS
2050 INPUT c1$
2060 INPUT c2$
2070 INPUT c3$
2080 INPUT c4$
2090 INPUT c5$
2100 INPUT c6$
2110 INPUT c7$
2120 INPUT c8$
2130 INPUT c9$
2140 INPUT c10$
2150 INPUT c11$
2160 INPUT c12$
2170 INPUT c13$
2180 INPUT c14$
2190 INPUT c15$
2200 INPUT c16$
2210 INPUT c17$
2220 INPUT c18$
2230 INPUT c19$
2240 INPUT c20$
2250 INPUT c21$
2260 INPUT c22$
2270 INPUT c23$
2280 INPUT c24$
2290 INPUT c25$
2300 INPUT c26$
2310 INPUT c27$
2320 INPUT c28$
2330 INPUT c29$
2340 INPUT c30$
2350 INPUT c31$
2360 INPUT c32$
2370 INPUT c33$
2380 INPUT c34$
2390 INPUT c35$
2400 INPUT c36$
2410 INPUT c37$
2420 INPUT c38$
2430 INPUT c39$
2440 INPUT c40$
2450 INPUT c41$
2460 INPUT c42$
2470 INPUT c43$
2480 INPUT c44$
2490 INPUT c45$
2500 INPUT c46$
2510 INPUT c47$
2520 INPUT c48$
2530 INPUT c49$
2540 INPUT c50$
2550 INPUT c51$
2560 INPUT c52$
2570 CLS
2580 PRINT "This is the most important part in your game planning, the Editor!"
2590 PRINT "Here, you get to tell the computer what actions it should take if"
2600 PRINT "the user types in certain things, like "; c3$; "."
2610 PRINT
2620 INPUT "Press <ENTER> to use the TGM+ Editor.", go11$
2630 CLS
2633 PRINT "User types: ", c1$
2640 PRINT "1. Change room"
2650 PRINT "2. Change player"
2660 PRINT "3. Change value"
2670 PRINT "4. Create Timer"
2680 PRINT "5. Create new HELP"
2690 PRINT "6. Create new BOSS"
2700 PRINT "7. Ask user question"
2710 PRINT "8. Tell user something"
2720 PRINT "9. Special Stuff"
2730 PRINT "10. Go on"
2735 PRINT "11. Change item"
2740 PRINT
2750 INPUT "Which one?", wo1$
2760 IF wo1$ = "1" THEN 2870
2770 IF wo1$ = "2" THEN 2950
2780 IF wo1$ = "3" THEN 3160
2790 IF wo1$ = "4" THEN 3460
2800 IF wo1$ = "5" THEN 3500
2810 IF wo1$ = "6" THEN 3740
2820 IF wo1$ = "7" THEN 3820
2830 IF wo1$ = "8" THEN 3860
2840 IF wo1$ = "9" THEN 3960
2850 IF wo1$ = "10" THEN 888
2857 IF wo1$ = "11" THEN 5230
2855 IF wo1$ = "QUIT" THEN END
2860 GOTO 2750
2870 CLS
2880 PRINT "1. Warp user to an already made room"
2890 PRINT "2. Warp user to a new room"
2900 PRINT
2910 INPUT "Which one?", wroom
2920 IF wroom = 1 THEN 4090
2930 IF wroom = 2 THEN 4140
2940 GOTO 2910
2950 CLS
2960 PRINT "Lives:"
2970 PRINT
2980 PRINT "1. Set number of lives"
2990 PRINT "2. Add to number of lives"
3000 PRINT "3. Subtract from number of lives"
3010 PRINT
3020 PRINT "Score:"
3030 PRINT
3040 PRINT "4. Set number of points"
3050 PRINT "5. Add to number of points"
3060 PRINT "6. Subtract from number of points"
3070 PRINT
3080 INPUT "Which one?", wscore
3090 IF wscore = 1 THEN 4400
3100 IF wscore = 2 THEN 4440
3110 IF wscore = 3 THEN 4480
3120 IF wscore = 4 THEN 4520
3130 IF wscore = 5 THEN 4560
3140 IF wscore = 6 THEN 4600
3150 GOTO 3080
3160 CLS
3170 PRINT "Value 1:"
3180 PRINT
3190 PRINT "1. Set value 1"
3200 PRINT "2. Add to value 1"
3210 PRINT "3. Subtract from value 1"
3220 PRINT
3230 PRINT "Value 2:"
3240 PRINT
3250 PRINT "4. Set value 2"
3260 PRINT "5. Add to value 2"
3270 PRINT "6. Subtract from value 2"
3280 PRINT
3290 PRINT "Value 3:"
3300 PRINT
3310 PRINT "7. Set value 3"
3320 PRINT "8. Add to value 3"
3330 PRINT "9. Subtract from value 3"
3340 PRINT
3350 INPUT "Which one?", wvalue
3360 IF wvalue = 1 THEN 4640
3370 IF wvalue = 2 THEN 4670
3380 IF wvalue = 3 THEN 4710
3390 IF wvalue = 4 THEN 4750
3400 IF wvalue = 5 THEN 4780
3410 IF wvalue = 6 THEN 4820
3420 IF wvalue = 7 THEN 4860
3430 IF wvalue = 8 THEN 4890
3440 IF wvalue = 9 THEN 4930
3450 GOTO 3350
3460 CLS
3470 INPUT "How many seconds?", howmany
3480 checktime = 1
3490 GOTO 2630
3500 CLS
3510 INPUT "Press <ENTER> to make a new HELP screen.", go14$
3520 CLS
3530 newhelp1 = 1
3540 INPUT h2a$
3550 INPUT h2b$
3560 INPUT h2c$
3570 INPUT h2d$
3580 INPUT h2e$
3590 INPUT h2f$
3600 INPUT h2g$
3610 INPUT h2h$
3620 INPUT h2i$
3630 INPUT h2j$
3640 INPUT h2k$
3650 INPUT h2l$
3660 INPUT h2m$
3670 INPUT h2n$
3680 INPUT h2o$
3690 INPUT h2p$
3700 INPUT h2q$
3710 INPUT h2r$
3720 INPUT h2s$
3730 GOTO 2630
3740 CLS
3750 PRINT "1. Completely out BOSS"
3760 PRINT "2. Homemade screen BOSS"
3770 PRINT
3780 INPUT "Please chose.", bossch
3790 IF bossch = 1 THEN 4970
3800 IF bossch = 2 THEN 5010
3810 GOTO 3780
3820 CLS
3830 INPUT "What is the question?", quest1$
3840 questy1 = 1
3850 GOTO 2630
3860 CLS
3870 PRINT "There is most always at least one time in the game where the com-"
3880 PRINT "puter says something to the user. You can have up to 3 lines, so"
3890 INPUT "press <ENTER> to do it!", go17$
3900 CLS
3910 popup1 = 1
3920 INPUT pp1$
3930 INPUT pp2$
3940 INPUT pp3$
3950 GOTO 2630
3960 CLS
3970 PRINT "1. If timer = ???"
3980 PRINT "2. If a value = ???"
3990 PRINT "3. If user's lives = ???"
4000 PRINT "4. Erase ALL changes made in this part."
4010 PRINT "5. Start ALL THE WAY over."
4015 PRINT "6. Beep"
4020 PRINT
4030 INPUT "Which one?", whicho4
4040 IF whicho4 = 1 THEN 5330
4050 IF whicho4 = 2 THEN 5430
4060 IF whicho4 = 3 THEN 5490
4070 IF whicho4 = 4 THEN 5540
4075 IF whicho4 = 5 THEN 5540
3077 IF whicho4 = 6 THEN beep1 = 1
3079 IF whicho4 = g THEN 2630
4080 GOTO 4030
4090 CLS
4100 INPUT "Room number?", rmnum
4110 gtorm1 = rmnum
4120 yesrom = 1
4130 GOTO 2630
4140 CLS
4150 INPUT "What room number is this?", roomnum
4160 CLS
4170 PRINT "Press <ENTER> to make a room ", roomnum
4175 room2 = 1
4180 INPUT go20$
4190 CLS
4200 INPUT rm2a$
4210 INPUT rm2b$
4220 INPUT rm2c$
4230 INPUT rm2d$
4240 INPUT rm2e$
4250 INPUT rm2f$
4260 INPUT rm2g$
4270 INPUT rm2h$
4280 INPUT rm2i$
4290 INPUT rm2j$
4300 INPUT rm2k$
4310 INPUT rm2l$
4320 INPUT rm2m$
4330 INPUT rm2n$
4340 INPUT rm2o$
4350 INPUT rm2p$
4360 INPUT rm2q$
4370 INPUT rm2r$
4380 INPUT rm2s$
CLS
INPUT "Item 1=", item21$
INPUT "Item 2=", item22$
INPUT "Item 3=", item23$
INPUT "Item 4=", item24$
INPUT "Item 5=", item25$
CLS
INPUT "What does item 1 look like?", lookl2a$
INPUT "What does item 2 look like?", lookl2b$
INPUT "What does item 3 look like?", lookl2c$
INPUT "What does item 4 look like?", lookl2d$
INPUT "What does item 5 look like?", lookl2e$
4390 GOTO 2630
4400 CLS
4410 INPUT "How many?", lives1
4420 live1 = 1
4430 GOTO 2630
4440 CLS
4450 INPUT "Add how much?", ahwmch
4460 addmch1 = 1
4470 GOTO 2630
4480 CLS
4490 INPUT "Subtract how much?", shwmch
4500 submch1 = 1
4510 GOTO 2630
4520 CLS
4530 INPUT "How many?", points1
4540 point1 = 1
4550 GOTO 2630
4560 CLS
4570 INPUT "Add how much?", atp
4580 atpoi1 = 1
4590 GOTO 2630
4600 CLS
4610 INPUT "Subtract how much?", stp
4620 stpoi1 = 1
4630 GOTO 2630
4640 CLS
4650 INPUT "Value 1=", value1
4660 GOTO 2630
4670 CLS
4680 INPUT "Add how much?", addval
4690 addeval1 = 1
4700 GOTO 2630
4710 CLS
4720 INPUT "Subtract how much?", subval
4730 subeval1 = 1
4740 GOTO 2630
4750 CLS
4760 INPUT "Value 2=", value2
4770 GOTO 2630
4780 CLS
4790 INPUT "Add how much?", addval2
4800 addeval2 = 1
4810 GOTO 2630
4820 CLS
4830 INPUT "Subtract how much?", subval3
4840 subeval2 = 1
4850 GOTO 2630
4860 CLS
4870 INPUT "Value 3=", value3
4880 GOTO 2630
4890 CLS
4900 INPUT "Add how much?", addval3
4910 addeval3 = 1
4920 GOTO 2630
4930 CLS
4940 INPUT "Subtract how much?", subval3
4950 subeval3 = 1
4960 GOTO 2630
4970 CLS
4980 comout2 = 1
4990 INPUT "That is set. Press <ENTER>.", go20$
5000 GOTO 2630
5010 CLS
5020 INPUT "Press <ENTER> to make new BOSS screen", go21$
5030 CLS
5035 boss2 = 1
5040 INPUT ba$
5050 INPUT bb$
5060 INPUT bc$
5070 INPUT bd$
5080 INPUT be$
5090 INPUT bf$
5100 INPUT bg$
5110 INPUT bh$
5120 INPUT bi$
5130 INPUT bj$
5140 INPUT bk$
5150 INPUT bl$
5160 INPUT bm$
5170 INPUT bn$
5180 INPUT bo$
5190 INPUT bp$
5200 INPUT bq$
5210 INPUT br$
5220 GOTO 2360
5230 CLS
5240 PRINT "1. Replace item"
5250 PRINT "2. Delete an item"
5260 PRINT "3. Add an item"
5270 PRINT
5280 INPUT "Which one?", witemw
5290 IF witemw = 1 THEN 5900
5300 IF witemw = 2 THEN 888
5310 IF witemw = 3 THEN 888
5320 GOTO 5280
5330 CLS
5340 INPUT "If timer=", timereq
5350 CLS
5360 PRINT "What is next is exactly like the menu you saw before, with one"
5370 PRINT "difference. That is that the heading will be: Timer = "; timereq; "."
5380 PRINT "If you would like to go back to the main menu, just punch in '11'"
5390 PRINT "at the main menu."
5400 PRINT
5410 INPUT "Press <ENTER> to continue.", go25$
5420 GOTO 888
5430 CLS
5440 INPUT "Which value?", wval3
5450 IF wval3 = 1 THEN 888
5460 IF wval3 = 2 THEN 888
5470 IF wval3 = 3 THEN 888
5480 GOTO 5450
5490 CLS
5500 INPUT "User's lives=", userlive
5505 userlived = 1
5510 GOTO 888
5520 CLS
5530 userlived = 0
5540 userlive = 0
5550 timereq = 0
5560 witemw = 0
5570 boss2 = 0
5580 comout2 = 0
5590 subeval3 = 0
5600 subeval2 = 0
5610 subeval1 = 0
5620 addeval3 = 0
5630 addeval2 = 0
5640 addeval1 = 0
5650 value1 = 0
5660 value2 = 0
5670 value3 = 0
5680 wroom = 0
5690 wscore = 0
5700 wvalue = 0
5710 howmany = 0
5720 checktime = 0
5730 newhelp1 = 0
5740 bossch = 0
5750 questy1 = 0
5760 popup1 = 0
5770 whicho4 = 0
5780 yesrom = 0
5790 room2 = 0
5800 live1 = 0
5810 addmch1 = 0
5820 submch1 = 0
5830 point1 = 0
5840 atpoi1 = 0
5850 stpoi1 = 0
5855 IF whicho4 = 5 THEN 10
5860 PRINT "OK, all changes you have made to this part have been changed..."
5870 PRINT
5880 INPUT "Press <ENTER> to go to menu.", go25$
5890 GOTO 2630
5900 CLS
5910 INPUT "Replace which item(name)?", witemr$
5920 IF witemr$ = item1$ THEN repi = 1
PRINT repi
888 END